home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / net / tf02.lha / TinyFugue / tf-lib / tintin.tf < prev    next >
Text File  |  1995-08-12  |  3KB  |  99 lines
  1. ;;;; Tintin emulation macros.
  2. ;;; If you're converting to tf from tintin, you might find this useful.
  3. ;;; This file emulates most of the commands in tintin++, although some
  4. ;;; commands will behave somewhat differently.
  5. ;;; These commands have not been fully tested.
  6.  
  7.  
  8. /~loaded tintin.tf
  9.  
  10. ;;; Some useful stuff is stored in other files.
  11. /require tick.tf
  12. /require alias.tf
  13. /require spedwalk.tf
  14. /require map.tf
  15.  
  16. /def -i action    = /trig %*
  17. ;alias        (see alias.tf)
  18. /def -i antisubstitute = /def -p9999 -t'$(/escape ' %*)'
  19. /def -i all    = /send -W -- %*
  20. /def -i bell    = /beep %*
  21. /def -i boss    = /@echo Not implemented.
  22. /def -i char    = /@echo Not implemented.
  23. ;/def echo    = /toggle mecho%; /: The name "/echo" conflicts with tf builtin.
  24. /def -i end    = /quit
  25. ;gag        builtin
  26. ;help        builtin
  27. /def -i highlight    = /hilite %*
  28. /def -i history    = /recall -i %{1-15}
  29. ;if        builtin
  30. /def -i ignore    = /toggle borg%; /set borg
  31. ;log        builtin
  32. ;loop        (see /for)
  33. ;map        (see map.tf)
  34. ;mark        (see map.tf)
  35. /def -i math    = /test %1 := %-1
  36. /def -i message    = /@echo Not implemented; use hooks with gags.
  37. /def -i -mregexp -p2 -h'send ^#([0-9]+) (.*)$' #rep_hook = /repeat %P1 %P2
  38. /def -i nop    = /:
  39. ;path        (see map.tf)
  40. /def -i presub =/@echo Use the -F flag in triggers that call /substitute.
  41. ;redraw        not needed (always on)
  42. ;return        (see map.tf)
  43. /def -i read    = /load %*
  44. ;savepath    (see map.tf)
  45.  
  46. /def -i session    = \
  47.          /if ({#}) \
  48.             /if /addworld %*%; /then /world %1%; /endif%;\
  49.         /else \
  50.             /listsockets%;\
  51.         /endif%\
  52.         /def %1 = \
  53.             /if ({#}) \
  54.                 /send -w%1 %%*%;\
  55.             /else \
  56.                 /world %1%;\
  57.             /endif
  58.  
  59. /def -i showme    = /@echo %*
  60. /def -i snoop    = \
  61.         /if /ismacro _snoop_%1%; /then \
  62.             /@echo %% Snooping %1 disabled.%;\
  63.             /undef _snoop_%1%;\
  64.             /undef _snoopbg%1%;\
  65.         /else \
  66.             /@echo %% Snooping %1 enabled.%;\
  67.             /def -i -w%1 -hbackground -ag _snoopbg_%1%;\
  68.             /def -i -t* -p9999 -w%1 -ag -F _snoop_%1 = \
  69.                 /@echo $${world_name}: %%*%;\
  70.         /endif
  71.  
  72. ;speedwalk    (see speedwalk.tf)
  73. /def -i split    = /isize %{1-3}%; /visual on
  74. ;subs        (see /substitute)
  75. ;substitute    (see /substitute)
  76. /def -i system    = /sh %*
  77. ;togglesubs    (no equiv)
  78. /def -i unaction    = /untrig %*
  79. ;unalias    (see alias.tf)
  80. ;unantisub    (no equiv)
  81. /def -i ungag    = /nogag %*
  82. /def -i unhighlight    = /nohilite %*
  83. ;unpath        (see map.tf)
  84. /def -i unsplit    = /visual off
  85. ;unsubs        (no equiv)
  86. /def -i unvariable    = /unset %*
  87. /def -i variable    = /set %*
  88. /def -i verbatim    = /toggle sub
  89. ;version    builtin
  90. /def -i wizlist    = /help author
  91. /def -i write    = /if ( {#} == 1 ) \
  92.             /save %1%;\
  93.         /else \
  94.             /@echo %% usage: /write <filename>%;\
  95.         /endif
  96.  
  97. /def -i zap    = /dc %*
  98.  
  99.